home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_16_1987_Transactor_Publishing.d64 / ss fix (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  418b  |  14 lines
  1. 10 f=40832: t=40866
  2. 20 print chr$(147)+"poking from" f "to" t
  3. 30 for i=f to t: read x$: print chr$(19)chr$(17)chr$(18);i
  4. 40 l=48: if asc(left$(x$,1))>57 then l=55
  5. 50 r=48: if asc(right$(x$,1))>57 then r=55
  6. 60 x=(asc(left$(x$,1))-l)*16+asc(right$(x$,1))-r:poke i,x: s=s+x: next
  7. 70 if s=3593 then print"okey-dokey": end
  8. 80 print "something's wrong!": end
  9. 40832 data a9,35,8d,8e,09,8d,98,0e
  10. 40840 data 8d,17,16,8d,df,14,8d,e6
  11. 40848 data 14,8d,b4,1d,8d,bb,1d,8d
  12. 40856 data 02,1e,8d,09,1e,a9,9f,8d
  13. 40864 data b1,09,60
  14.